!-------------------------------------------------------------LICENSE--------------------------------------------------------------!
!                                                                                                                                  !
!The MAP code is written in Fortran language for magnetohydrodynamics (MHD) calculation with the adaptive mesh refinement (AMR)    !
!and Message Passing Interface (MPI) parallelization.                                                                              !
!                                                                                                                                  !
!Copyright (C) 2012                                                                                                                !
!Ronglin Jiang                                                                                                                     !
!rljiang@ssc.net.cn                                                                                                                !
!585 Guoshoujing Road. Pudong, Shanghai, P.R.C. 201203                                                                             !
!                                                                                                                                  !
!This program is free software; you can redistribute it and/or modify it under the terms of the GNU General Public License         !
!as published by the Free Software Foundation; either version 2 of the License, or (at your option) any later version.             !
!                                                                                                                                  !
!This program is distributed in the hope that it will be useful, but WITHOUT ANY WARRANTY; without even the implied warranty of    !
!MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU General Public License for more details.                        !
!                                                                                                                                  !
!You should have received a copy of the GNU General Public License along with this program; if not, write to the Free Software     !
!Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301, USA.                                                   !
!                                                                                                                                  !
!-------------------------------------------------------------LICENSE--------------------------------------------------------------!

!==================================================================================================================================|
subroutine check_info (info)
!==================================================================================================================================|

   use parameters

   implicit none

   character(*) :: info
   character(4) :: cpu_char

!----------------------------------------------------------------------------------------------------------------------------------|
   write (cpu_char, '(i4.4)') cpu_id
   open (unit_check_info, file = trim (directory) // '/data/out.check_info' // '.cpu' // cpu_char)
   write (unit_check_info, *) '|-------------------------------------------------------------------------|'
   write (unit_check_info,"(a, i6, a, i5, a, es10.3, a, es10.3, a, es10.3)")                                                       &
      ' ns= ', ns, ', blocks = ', n_blocks_all, ', t= ', t, ', dt= ', min_dt, ', et= ', max_et
   write (unit_check_info, *) 'info = ', trim (info)
   write (unit_check_info, *) 'Minimum number of blocks = ', minval (n_blocks)
   write (unit_check_info, *) 'Maximum number of blocks = ', maxval (n_blocks)
   write (unit_check_info, *) '|-------------------------------------------------------------------------|'
   close (unit_check_info)

!----------------------------------------------------------------------------------------------------------------------------------|
   return
end subroutine check_info
